home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir43 / qsrc_dsk.zip / MODEL / CREATET.PRG < prev    next >
Text File  |  1991-12-17  |  4KB  |  132 lines

  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ CREATET.PRG                                             ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║ Application Developed in _Using FoxPro 2_               ║
  7. *       ║                                                         ║
  8. *       ║ Lisa C. Slater and Steven E. Arnott                     ║
  9. *       ║                                                         ║
  10. *       ║ Copyright (c) 1991 Que Publishing                       ║
  11. *       ║                                                         ║
  12. *       ╙─────────────────────────────────────────────────────────╜
  13.  
  14. *                  Executive Information System for
  15. *                    The Omnipresent Widget, Ltd.
  16.  
  17. * codes in the system are created from initial letters
  18. * plus tie-breaking digits for sub-groups 
  19.  
  20. CREATE TABLE Budget      ;
  21.     (Deptcode    C(4),   ;     
  22.      Prodcode    C(5),   ;     
  23.      Budcatcode  C(4),   ;     
  24.      Period      D,      ;     
  25.      Budgetamt   N(7,0), ;     
  26.      Final       L,      ;     
  27.      Notes       M)
  28. INDEX ON Prodcode   TAG Prodcode
  29. INDEX ON Deptcode   TAG Deptcode
  30. INDEX ON Budcatcode TAG Budcatcode
  31. INDEX ON Period     TAG Period
  32. INDEX ON Budgetamt  TAG Budgetamt
  33. INDEX ON Final      TAG Final 
  34.  
  35. CREATE TABLE Dept        ;
  36.      (Deptcode   C(4),   ;     
  37.       Deptname   C(30))        
  38. INDEX ON Deptcode TAG Deptcode
  39. INDEX ON Deptname Tag Deptname
  40.  
  41. CREATE TABLE Product     ;
  42.      (Prodcode   C(5),   ;     
  43.       Prodname   C(20),  ;     
  44.       Photo          M)
  45. INDEX ON Prodname TAG Prodname
  46. INDEX ON Prodcode TAG Prodcode
  47.  
  48. CREATE TABLE Budcat      ;
  49.      (Budcatcode C(4),   ;     
  50.       Budcat     C(20))  ;     
  51. INDEX ON Budcatcode TAG Budcatcode
  52. INDEX ON Budcat     TAG Budcat 
  53.  
  54. CREATE TABLE Manufact    ;
  55.      (Prodcode   C(5),   ;     
  56.       Proddate   D,      ;     
  57.       Shift      C(1),   ;     
  58.       Quantity   N(4,0), ;     
  59.       Rejects    N(4,0))       
  60.  
  61. CREATE TABLE Prodmix     ;
  62.      (Prodcode   C(5),   ;     
  63.       Rawmatter  C(20),  ;     
  64.       Weight     N(7,0))
  65.  
  66.  
  67. CREATE TABLE Rawdeliv    ;
  68.       (Invoice    C(5),   ;     
  69.       Vendorcode C(4),   ;     
  70.       Rawmatter  C(20),  ;     
  71.       Cost       N(10,2),;     
  72.       Delivdate  D,      ;     
  73.       Paiddate   D)            
  74.  
  75. CREATE TABLE Material    ;
  76.      (Rawmatter C(20))         
  77.  
  78. CREATE TABLE Vendor      ;
  79.      (Vendorcode C(4),   ;     
  80.       Company    C(30),  ;     
  81.       President  C(30),  ;     
  82.       Phone      C(10))       
  83.  
  84. CREATE TABLE Capexp      ;     
  85.      (Capcode    C(4),   ;     
  86.       Deptcode   C(4),   ;     
  87.       Prodcode   C(5),   ;     
  88.       Period     C(5),   ;     
  89.       Depnperiod N(2,0), ;     
  90.       Amount     N(10,2),;     
  91.       Notes      M)           
  92.  
  93. CREATE TABLE Wages       ;
  94.      (Deptcode   C(4),   ;     
  95.       Prodcode   C(5),   ;     
  96.       Wagetype   C(1),   ;     
  97.       Shift      C(1),   ;     
  98.       Periodwk   C(5),   ;     
  99.       Amount     N(11,2))      
  100.  
  101. CREATE TABLE Sales       ;
  102.      (Invoice    C(5),   ;     
  103.       Prodcode   C(5),   ;     
  104.       Datesold   D,      ;     
  105.       Quantity   N(5,0), ;     
  106.       Price      N(7,2), ;     
  107.       Salesman   C(4),   ;     
  108.       Custcode   C(4))         
  109.  
  110. CREATE TABLE Salesman    ;
  111.      (Salesman   C(4),   ;     
  112.       Name       C(30))       
  113.  
  114. CREATE TABLE Customer    ;
  115.      (Custcode   C(4),   ;     
  116.       Company    C(35),  ;     
  117.       Address1   C(30),  ;     
  118.       Address2   C(30),  ;     
  119.       City       C(20),  ;     
  120.       State      C(2),   ;     
  121.       Zip        C(5),   ;     
  122.       Lastname   C(20),  ;     
  123.       Firstname  C(15),  ;     
  124.       Prefix     C(3),   ;     
  125.       Phone      C(10))       
  126.  
  127.  
  128. RETURN
  129.  
  130.